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I. - Principe général : 

Le programme fournit une matrice de nombres correspondant à des 
couleurs codées de la façon suivante : chaque couleur est déterminée par sa 
teinte (il y a ici 12 teintes codées de 0 à 12) et sa valeur (nous en utilisons 
quatre, codées par les nombres pairs 2, 4, 6, 8), 

N. Les deux dernières teintes sont codées X et 7. 

Mode de production de cette matrice : 

On utilise un graphe, permettant ou interdisant la succession de 
deux teintes quelconques suivant une verticale ou une horizontale de ໂລ matrice. 

Ce graphe sera mis en mémoire sous forme d'un tableau carré de 12 
lignes et 12 colonnes, rempli de O et de 1. Dans la ligne M et la coionne N, 
un 1 signifie qu'on peut passer de la teinte M à la teinte N, un 0 signifie 
que la même succession est interdite. 

En ce qui concerne les valeurs, le principe suivant a été adopté : 
suivant ໄລ 'Histance" entre teintes consécutives (soit suivant u ne verticale, 
soit suivant une horizontale, et avec une prédominanee de la condition relative 
à la succession verticale à priori), la valeur sera la même que celle de ໂລ 
"case" précédente, ou sera aléatoire, ou sera fortement différente de la pré- 
cédente. Ces conditions seront vues plus précisément dans l'étude du programme 
lui-même. 

Rappelons simplement que les 12 teintes sont réparties sur un cercle 
chromatique: la distance entre la teinte O et la teinte II sera donc de 1. 

Le tableau de sortie sera donc en fait déterminé par deux tableaux, l'un de 
teinte, l'autre de valeur, le premier étant calculé d'après le graphe, le 
second étant calculé à partir du premier. 

Pour éviter l'encombrement en mémoire, le calcul se fera deux 
lignes par deux lignes. D'où l'allure générale du programme: 

a) - calcul de la première ligne du tabieau 


b) 


calcul de la deuxième ligne en fonction de la première. 
- édition de la ligne 1 - Transfert de la ligne 2 dans la ligne 1 


- retour en b) ou arrát conditionné par clé, ou par compteur. 


1 


veel 
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IT. - Notations utilisées. 
- Tableau représentant le graphe des teintes en mémoire: TEIN. (0:11,0 : 11) 
de 1 H 20). 


- Tableau de sortie pour les valeurs: SEV, (1 : 2, 1 : 20), 


- Tableau de sortie pour les teintes: SEO. (1 


KE) 


I et J seront les indices de ligne et de colonne des deux tableaux 
SEQ et SEV, 

K sera le compteur de lignes éditées. 

Z sera la distance entre les teintes de deux cases successives sur 
une méme ligne. 

L sera la distance entre les teintes de deux cases successives sur 
une méme colonne. 

1115 - Procédures utilisées: 

En dehors des procédures classiquement utilisées ici (ALEA calculant 
un nombre AL compris entre O et 9972, aléatoire, et PMOD (X, Y) qui donne le 
nombre X modulo Y) nous employerons: 

PRINT 1 (X) qui imprime la teinte, avec deux espaces entre chaque case permet- 
tant d'intercaler la valeur, avec la précision: X représente la teinte 10, Z 
représente la teinte II. 

PRINT 2 (X) qui imprime la valeur en rouge, sous la forme 2, 4, 6? 8, alors que 
le résultat est donné par O, 1, 2, 3, dans le Drogranme o 

DIS (X, Y) qui est une ‘entier procédure" donnant la distance entre les deux 


teintes X et Y, en valeur absolue, Ø Initialisation de l'aléatoire et lecture 

ປປ graphe qui est une donnée du progra- 
mne 

- Initialisation du compteur de ligne éditées à O. Le graphe choisi ici 


IV. - Etude détaillée du programme: 


autorise le voisinage entre chaque couleur et sa complémentaire, ce qui favo- 
rise l'impression de clignotement. 
Tel - Calcul de la Ière ligne. Cette partie du programme ne sera utilisée 
qu'une fois. Teinte et valeur de la lére case sont déterminées aléatoirement. 
- Puis la teinte d'une case quelconque, choisie aléatoirement, est acceptée 
ou recalculée en fonction de la teinte de la case précédente sur la même ligne, 
selon le graphe. 
= Condition sur la valeur: 
Si la distance Z entre deux cases voisines est nulle, la valeur sera 
aléatoire. Le but espéré est de créer des harmonies ton sur ton, 
Si 2 vaut 6, c'est-à-dire si les deux teintes sont complémentaires, 
on garde la même valeur (dans le but de faire agir au maximum le contraste 
entre teintes). 
Dans tous les autres cas, on fait fortement varier la valeur de ia façon 


suivante : / 
ອ 9 © s 
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V, = (Y, _+2) modulo 4 

j=1 
ce qui s'écrit avec les notations utilisces; 

SV. (I,J). : = PMOD (SEV, (l,J-1;. + 2,4), 

SLUP : Etiquette du calcul d'une ligne quelconque en fonction de la précédente 
en l'occurence de la 2ème en fonction de la Ièra, puisqu'il y aura toujours 
transfert d'une ligne 2 calculés dans la ligne Le. Les conditions sur teinte et 
valeur sont les mêmes que précédemment, mais on tente de faire intervenir le 
voisinage vertical. 
=i; Ière case de la ligne: pour la teinte comme pour la valeur, on nc consi- 
dóre que le voisinage vertical. En ce qui concerne la valeur, ce sera réalisé 
en fixant ລ priori Z à 3, ce qui n'a aucune influence per rapport aux conditions 
simultanées fixées pour Z et L que nous allons voir. 


J quelconque: en ce qui concerne la teinte, les conditions imposées par ໂຂ 


- 


graphe doivent être vérifiées simultanfment suivant la verticale et l'horizon- 
tale. En ce qui concerne la valeur: 
Calcul de 2 et L 

Prédominancz accordée à l'égaliti de teintes s'il y a complémentarité, 
et à la direction verticale si cette complémentarité se trouvait réalisée suiv- 
vant les deux directions. Ceci est réalisé en posant d'abord la condition 
L'EGAL' 6, puis Z "EGAL'' 6. Si aucune de ces deux conditions n'est réalisée, 
la condition suivante L !EG" 0 "OU" Z "EG 0 donnera une valeur aléatoire 
dans l'un ou l'autre des deux cas: égalité de teinte suivant la verticale 
ou l'horizontale. 

Enfin dans tous les autres cas, le calcul de la valeur se fera de 
la même façon que plus haut, mais d'après ia valeur de la case précédente 
suivant la verticalo: 


+ 2) modulo 4 


67-68 Edition de la ligne 1 


Le 


69 Transfert de la 2àme ligne dans la Titre, Augmentation du compteur. 


If: Retour en GLUP au calcul de la 2óme ligne ou arrêt si le comptaur 


est å 20. 


http://www.artinfo-musinfo.org Artinfo Musinfo # 11, octobre 1971, page 4 / 26 


> 


1 +1.12.1;.117.11311; 11; +, 11, 11), 1... , 1.) 
2 $ 
Í S FRANCINE DUPRE GRAPHE COULEURS a 
5 2111... bÐ Ðl PS DE DU PE FE ttt rb EE 
6 

7 

8 IDEBTTENT' I J, K L Z Al; 'ENT!'!TAB!TEIN,C0:11,60:11),, 
k SEO,C112,1:120),,5EV,C152,1:20), 4 
11 ENT! PRO! PMODCX, YJ; TENT X, Y; PMOÐ s EX=X%YTY y 
12 

13 TENT! !PROYÐISEX, YD; ENTIX,Y ¿DIS iS SI ABRSCX=Y)J ING! 
14 6' ALO! 

15 ABSCX-Y)?SIN*12-ABSCX-Y) ; 

16 
17 'PRO'ALEA;AL:=PMODC(AL*11,9973); 

S 

19 ' PRO'PRINTICX); 'ENT'X; 'DEB''SI'X'EG'ILO'ALO? 
20 EXLCO XQJ'SIN''SI'X'EG'IL 
21 'ALOTEXLCO ZQAD'SIN'EXEC2,X)'FIN?; 
22 
23 ' PRO’ PRINT2CX); "ແນນ! ເ; 'DEB''SI'X'EG'O ALO? 
24 EXLCOH2 $0) SIN? 
25 SI 'X'EG'1'ALO'EXLCO#LSQD'SIN'*SI'X"EG 2" ALO’ 
26 EXLCO#6SQ@)'SIN'TEXLCO#8S@) 
27 "FIN" ; 
28 
29 LIRTCCTEIN); 
30 EXLCOAL@); IMPR; LICLAVCAL); 
31 K:=0;1:=1; 
32 'PQU'J:=1'PAS*1'JUS*20'FAI? | 
33 'DEBTRE:ALEA;SEO0.,.(1,U/).:=PMODCAL, 12); 'SI'J'EG'1' ALO’ 
34 'ALL*ENC; 
35 "ALL? "ST TEIN.CSFO„(1,d4-1),-, SEC. C1 J), TEG 17 ALO? 
36 ENC'SIN'RE¿ENC:*FIN!; | 
37 'POU'J:=1'PAS'1'JUS'20'FAI' 

38 ເບແ8! "1 S1?U1'EG' 11 ALO' 1 ALLI TILT; 

39 Z:=DIS(SEO,(1,J-1).,5EC, (1, J). 3 
40 TSI 'Z'EG'O'ALO!'TILT:'DEB'ALEA;SEV,CI,J).:=PMODCAL, 5) , ; 
41 ALLYZUT; 
42 '"FIN*¿*SITZ'EC*6'ALO*SEV.C1,J).:=SEV.CI,yY-D.; 
43 1S1'Z SuUP'O'ET'Z'INF'6'"ALO! 
44 SEV.CI,J).:=PMODCSEV. CI, J-1).+2,4);ZUT:'FIN'; 
45 GLUP:1:=2;5 
46 'POU'J:=1*PAS*1'JYUS'20'FAI! 
47 '"DEB'REP: ALEA; 
48 SEQ.CI, J). :=PMODCAL, 12); 
49 tSI'J'EG'l'ALO''ALL'TOP:'ALL'°"SI! 
50 TEIN.CSEO.C1,J).,SE0,.C2,J).),'EG"1 
51 TET'TEIN,CSEON.C2,J-1),,SE0.C2,J).).'EGf1'ALO!CLONC'SIN! 
52 REP: 
53 TOP: 'ALLIIST'TEIN.CSEN,.(C1,1).,SE0,C2,1).).'EG'1'ALO! 
54 CLONC'SIN'REP; 

55 CLONC: (11! ; 
56 ? POU'J:=1'PAS'1'JUS'20' FAI?’ 

57 'DEB''SI'J'EG'I'ALO''DEB’'Z:=3; 'ALL'ZOB;'FIN'; 
58 Z:=DISCSEQ.CI,J-1).,SES.CI,J).); 
59 ZOB:L:=DISCSEQ. C1, J). SEQ. C2,J).); 
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ວາມ 


60 ISI"LIEG'GYALO! 'DEB'SEV, (2,0), :5SEV, dis 'ALL' TRUC; 


61 "FIN? 
62 'SI'ZÍEG'G'ALO? DER! SEV,C(1,Y).:=SEV,C1,U-1).3*ALL* TRUC; 
63 FIN"; 
64 ISI Z EC 0'OUtL'EG'O0O'ALO''DEB'ALEA; 
65 SEV.CI,U).:=PMODCAL, H); "'/LE'TRUC; "FINT; 
66 SEV,.CI,J). :=PMODCSEV. Ci J).+2, r TRUC: 'FIN'; 
67 POU y =1 PAS? 1'JUS!?20' FAT! 
68 'DEB'PRINTICSEO.C(1,U).)¿PRINT2CSEV.C1,Y).3;' FIN" ¿IMPR; 
69 1BOU'J:=1' PAS 1 JUS 120" FAL? 'DEB'SEO.(1,J).:=SEO, (2,0). ; 
70 SEV. Cl, JJ). :=S5EV.(2,J).;'FIN';K1=K+1}; 
71 STR EGIZOVALOS ALL? FINAL; F ALLI GLUP; FINAL: "FEINT? 
72 
: DONNEES. x 
11000110000 1 1110011 
00000 011101100000 
001111100000 0001111 
0000 0 000011100000 
000001110000 0 6 9 0 0 11 
1100 0 000001111100 
000001001110 0000010 
00111 100001000011 
x RESULTATS x 
AL 


54 52 68 76 68 62 62 64 68 62 66 52 ເມ 68 54 54 54 66 66 66 


PE OGRA ME TERMINE 
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